BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Hyperj-Hz/HyperJack 1.0.1.cpt/HyperJack 1.0.1 ƒ/HyperJack 1.0.1/background_3598.xml

Extensible Markup Language | 1991-08-29 | 3KB | 14 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>3598</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2059.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3169.css" />
    <name>Play</name>
    <script>on shuffleglobal count, nextHandput 0 into countput 0 into card field "Left"set cursor to busyput "T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T," & ¬"T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T,T" into ¬line 2 of card field "Decks"put 52 - count into card field "Left"end shuffleon winglobal nextHand, deal, hold, winSoundplay boing 60answer "You win!" with "Great"play winSoundget card field "Bet"multiply it by 2add it to card field "Account"put true into nextHandput false into dealput false into holdset lockText of card field "Bet" to falseend winon tieglobal nextHand, deal, holdplay "harpsichord" 60answer "It is a tie." with "Well"get card field "Bet"add it to card field "Account"put true into nextHandput false into dealput false into holdset lockText of card field "Bet" to falseend tieon lossglobal nextHand, deal, holdflashanswer "You lose." with "Too bad"put true into nextHandput false into dealput false into holdset lockText of card field "Bet" to falseget card field "Account"if it = 0 thenflashanswer "There is no money in the bank, you broke!" with "Oops!"go to card "Title"end ifend losson blackJackglobal nextHand, deal, hold, winSoundbeepanswer "You win." with "Great"play winSoundget card field "Bet"multiply it by 3add it to card field "Account"put true into nextHandput false into dealput false into holdset lockText of card field "Bet" to falseend blackJackon arrowKey whichKeyif whichKey is right thenset hilite of card button "Next Hand" of card "PlayGround" to truesend mouseUp to card button "Next Hand"set hilite of card button "Next Hand" of card "PlayGround" to falseelse if whichKey is down thenset hilite of card button "Deal" of card "PlayGround" to truesend mouseUp to card button "Deal"set hilite of card button "Deal" of card "PlayGround" to falseelse if whichKey is left thenset hilite of card button "Hold" of card "PlayGround" to truesend mouseUp to card button "Hold"set hilite of card button "Hold" of card "PlayGround" to falseelse if whichKey is up thenend ifend arrowKey</script>
</background>